home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4cmp22s.zip / DISPLAY1.4TH < prev    next >
Text File  |  1994-10-30  |  1KB  |  40 lines
  1. \ FORTH COMPILER  DISPLAY LIBRARY                 05/13/93
  2.  
  3. 0 [IF]
  4. COPYRIGHT 1985, 1993 (C) BY THOMAS ALMY.  ALL RIGHTS RESERVED
  5. Permission is granted to registered users of ForthCMP to sell or distribute
  6. computer programs incorporating the compiled contents of this file.
  7.  
  8. Fast Terminal output for IBM pc or compatibles.
  9. Works with monochrome or color monitors in any text display mode.
  10. EMIT generates all 256 characters -- no control functions.
  11.  
  12. Include this file at start of program.
  13. Include the file DISPLAY2 before FORTHLIB
  14. When used with FACIL, include DISPLAY2 before FACIL2
  15. Define constant VID-DELAY non-zero for vertical retrace blanking
  16. Execute SETUP-VID at program start, and UNSETUP-VID at finish
  17.  
  18. This library defines EMIT, TYPE, CS:TYPE, PAGE, AT-XY, FOREGROUND,
  19. BACKGROUND, INTENSITY, -INTENSITY, BLINK, -BLINK, as in
  20. PC/Forth. DO NOT use CONSOLE PRINTER and/or MESSAGES!
  21.  
  22.  
  23. [THEN]
  24.  
  25. 10 HEX
  26. VARIABLE vidseg    \ VIDEO SEGMENT
  27. VARIABLE style     \ DISPLAY STYLE
  28. VARIABLE cursor    \ CURSOR POSITION
  29. VARIABLE crtport   \ CRT PORT
  30. B800 vidseg !   7 style !   0 cursor !   3D4 crtport !
  31. 50 VALUE c/l    \ Characters per line
  32. 19 VALUE l/s    \ lines per screen
  33. 0 VALUE c/s  0 VALUE c/sm1   0 VALUE crtstart
  34.  
  35. 1 0 IN/OUT NEED FOREGROUND
  36. 1 0 IN/OUT NEED BACKGROUND
  37. 2 0 IN/OUT NEED AT-XY
  38. 0A = [IF] DECIMAL [THEN]
  39.  
  40.